TOP
BYTE AA(100)
BYTE BB(00300)
INT IAA(100)
INT IBB(00300)
BYTE CC
BYTE DD
INT ICC
BYTE SS
BYTE EE
BYTE FF
INT IDD
INT IEE
INT IFF
BEGINMAIN(AV,IAV)
	MS 'BEGIN T05'
GOTO 10
	MS 'GOTO FAIL'
LOC 20
GOTO 30
	MS 'AND AGAIN'
LOC 10
GOTO 20
LOC 30
MS '111111111'
CC=+001
DD=+000
AA(DD)=CC
EE=AA(DD)
FF=EE!=CC
IF FF
	MS 'BYTE.BYTE'
ENDIF
MS '222222222'
DD=+099
AA(DD)=CC
EE=AA(DD)
FF=EE!=CC
IF FF
	MS 'BYT.99BYT'
ENDIF
MS '333333333'
SS=+000
WHILE
	DD--
	EE=+000
	FF=DD!=EE
ON FF
	AA(DD)=SS
	EE=AA(DD)
	FF=EE!=EE
	IF FF
		MS 'BYT.I.BYT'
		MS 'OR WHILE '
		GOTO 51
	ENDIF
	SS++
ENDWHILE
MS '444444444'
LOC 51
EE=+098
FF=EE!=SS
IF FF
	MS 'WHILE....'
ENDIF
IDD=+00300
ICC=+00000
WHILE
	FF=ICC!=IDD
ON FF
	DD++
	BB(ICC)=DD
	EE=BB(ICC)
	FF=EE!=DD
	IF FF
		MS 'BYT.I.INT'
		GOTO 52
	ENDIF
	ICC++
ENDWHILE
MS '555555555'
LOC 52
ICC=+00000
IEE=+00100
WHILE
	FF=ICC!=IDD
ON FF
	IEE++
	IBB(ICC)=IEE
	ICC++
ENDWHILE
IEE=+00100
ICC=+00000
WHILE
	FF=ICC!=IDD
ON FF
	IEE++
	IFF=IBB(ICC)
	ICC++
	FF=IFF!=IEE
	IF FF
		MS 'INT(INT).'
		GOTO 53
	ENDIF
ENDWHILE
MS '666666666'
LOC 53
DD=+100
CC=+000
IEE=+10000
WHILE
	FF=CC!=DD
ON FF
	IAA(CC)=IEE
	IEE++
	CC++
ENDWHILE
CC=+000
IEE=+10000
WHILE
	FF=CC!=DD
ON FF
	IDD=IAA(CC)
	FF=IDD!=IEE
	IF FF
		MS 'INT(BYTE)'
		GOTO 54
	ENDIF
	IEE++
	CC++
ENDWHILE
MS '777777777'
LOC 54
MS 'ENDOF T05'
ENDMAIN
BOTTOM
